home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 33 / Tiger_Disk_033_1996-12_Tiger-Crew-Disk_de_Side_C.d64 / brain part i (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  19KB  |  584 lines
  1. 2 i$="moin"
  2. 3 rem das leben des brain part i
  3. 5 rem public domain soft
  4. 6 rem von peter diehm
  5. 7 rem geschrieben 2/92
  6. 8 poke 650,255:poke657,128:printchr$(14)""
  7. 9 poke 53280,0:poke 53281,0:print"[147]":a=1:goto 4000
  8. 10 rem unterprogramm taste
  9. 11 printspc(30)"[154]-[212]aste-[146]"
  10. 12 get f$:iff$="" then 12
  11. 13 return
  12. 50 rem inventar
  13. 51 printspc(1)" [201]nventar: [146]
  14. 52 [139] f[178]1 [167][153][166]1)"eine ascackel.
  15. 54 if b=1 thenprintspc(1)"eine [193]xt.
  16. 55 [139] c[178]1 [167][153][166]1)"einen ascisch.
  17. 56 if o=1 thenprintspc(1)"ein [207]ellaempchen.
  18. 57 [139] e[178]1 [167][153][166]1)"atnrmeekasse.
  19. 58 if d=1 thenprintspc(1)"[196]reizack.
  20. 60 [139] z[178]1 [167][153][166]1)"eine atnngel.
  21. 62 if l=1 thenprintspc(1)"eine [205]etropa [203]affeemaschine.
  22. 63 [139] n[178]1 [167][153][166]1)"die neue (NULL)ublic !"
  23. 64 [139] m[178]1 [167][153][166]1)"ein (NULL)eil.
  24. 65 if s=1 thenprintspc(1)"einen [199]roschen.
  25. 66 [139] w[178]1 [167][153][166]1)"einen (NULL)rug (NULL)ein !"
  26. 67 [137] 100
  27. 80 [143] kommandos
  28. 81 [153][166]0)" nimm,nehme,lies,lese,iss,esse,
  29. 82 printspc(0)" trinke,inventar,inventory,klopfe,
  30. 83 [153][166]0)" kommandos,blicke,blick,gebe,gib,load,
  31. 84 printspc(0)" lade,save,speichere,schlaf,schlafe,
  32. 86 [153][166]0)" benutz,benutze,frage,grabe,sage,sag,
  33. 87 printspc(0)" schlage,schlag,druecke,drueck, n,s,w,
  34. 88 [153][166]0)" o,r,h,sicher,sichern.
  35. 100 printspc(1)"[204]etzte [197]ingabe: "i$""
  36. 101 input" [158] -=> [146] ";i$
  37. 102 if len(i$)=2 then 138
  38. 103 if i$="blick" or i$="blicke" then 1000
  39. 104 if i$="norden" then 820
  40. 105 if i$="sueden" then 860
  41. 106 if i$="westen" then 900
  42. 107 if i$="osten" then 940
  43. 108 if i$="hoch" or i$="rauf" then 195
  44. 109 if i$="runter" then 185
  45. 110 if i$="klopfe" or i$="klopf" then 800
  46. 111 if i$="kommandos" or i$="hilfe" then 80
  47. 112 if i$="inventar" or i$="inventory" then 50
  48. 113 if i$="schlaf" or i$="schlafe" then 700
  49. 114 if i$="load" or i$="lade" then 600
  50. 115 if i$="save" or i$="speichere" then 650
  51. 116 if i$="grabe" or i$="grab" then 1100
  52. 117 if i$="sicher" or i$="sichern" then 3000
  53. 118 if len(i$)>1 then 150
  54. 119 if len(i$)=1 then 130
  55. 120 goto 150
  56. 121 printspc(1)"[197]rst [197]ingeben dann [210]eturn !
  57. 122 [137] 100
  58. 130 [139] i$[178]"n" [167] 820
  59. 131 [139] i$[178]"s" [167] 860
  60. 132 [139] i$[178]"w" [167] 900
  61. 134 [139] i$[178]"o" [167] 940
  62. 138 [139] i$[178]"r" [167] 185
  63. 139 [139] i$[178]"h" [167] 195
  64. 145 [153][166]1)" str$iese atnbkuerzung verstehe ich nicht !"
  65. 146 [137]100
  66. 150 [141] 500
  67. 152 [143] verteilung
  68. 153 [139] v$[178]"nimm" [176] v$[178]"nehme" [167] 300
  69. 154 [139] v$[178]"lies" [176] v$[178]"lese" [167] 370
  70. 155 [139] v$[178]"schlage" [176] v$[178]"schlag" [167] 400
  71. 156 [139] v$[178]"inventar" [176] v$[178]"inventory" [167] 50
  72. 157 [139] v$[178]"hilfe" [176] v$[178]"kommandos" [167] 80
  73. 158 [139] v$[178]"blicke" [176] v$[178]"blick" [167] 1000
  74. 160 [139] v$[178]"gebe" [176] v$[178]"gib" [167] 450
  75. 162 [139] v$[178]"load" [176] v$[178]"lade" [167] 600
  76. 163 [139] v$[178]"save" [176] v$[178]"speichere" [167] 650
  77. 165 [139] v$[178]"schlaf" [176]  v$[178]"schlafe" [167] 700
  78. 166 [139] v$[178]"benutz" [176] v$[178]"benutze" [167] 720
  79. 169 [139] v$[178]"klopfe" [176] v$[178]"klopf" [167] 800
  80. 170 [139] v$[178]"trink" [176] v$[178]"trinke" [167] 1130
  81. 172 [139] v$[178]"frage" [176] v$[178]"frag" [167] 220
  82. 173 [139] v$[178]"sage" [176] v$[178]"sag" [167] 250
  83. 175 [139] v$[178]"grab" [176] v$[178]"grabe" [167] 1100
  84. 177 [139] v$[178]"sicher" [176] v$[178]"sichern" [167] 3000
  85. 178 [139] v$[178]"iss" [176] v$[178]"esse" [167] 1130
  86. 180 [153][166]1)"right$rgendwie verstehe ich dich nicht !"
  87. 181 [137]100
  88. 185 [143] runter
  89. 186 [139] a[178]7 [167] a[178]5:[137] 210
  90. 187 [139] a[178]4 [167] a[178]3:[137] 210
  91. 190 [153][166]1)"left$ier gehst nicht runter !":[137] 100
  92. 195 [143] hoch
  93. 196 [139] a[178]5 [167] a[178]7:[137] 211
  94. 197 [139] a[178]3 [167] a[178]4:[137] 211
  95. 198 [153][166]1)"left$ier gehst nicht rauf !":[137] 100
  96. 210 [153][166]1)"str$u gehst nach unten !":[137] 1300
  97. 211 [153][166]1)"str$u gehst nach oben !":[137] 1300
  98. 220 [143] frag
  99. 221 [139] a[178]1 [175] db[178]1 [167] 1430
  100. 222 [139] a[178]15 [167] 1550
  101. 223 [139] a[178]18 [167] 1560
  102. 224 [139] a[178]21 [167] 1600
  103. 240 [153][166]1)"str$u hast vielleicht ascragen.":[137] 100
  104. 250 [143] sage
  105. 252 [139] a[178]18 [175] o$[178]"muppets" [167] 1570
  106. 253 [139] a[178]21 [167] 1600
  107. 290 [153][166]1)"chr$enau das cont sage wait ich auch immer !":[137] 100
  108. 300 [143] nimm
  109. 302 [139] a[178]1 [175] dd[178]1 [167] b[178]1:[137] 360
  110. 304 [139] a[178]7 [175] o[178]0 [167] o[178]1:[137] 360
  111. 355 [153][166]1)"str$iesen chr$egenstand sehe ich nicht !":[137]100
  112. 360 [153][166]1)"str$u nimmst das (NULL)eil an dich !":[141]10:[137]1000
  113. 370 [143] lies
  114. 371 [139] a[178]12 [167] 1530
  115. 373 [139] n[178]1 [175] o$[178]"public" [167] 1700
  116. 390 [153][166]1)"str$as kannst du nicht lesen !":[137] 100
  117. 400 [143] schlag
  118. 402 [139] a[178]1 [175] da[178]1 [167] 445
  119. 404 [139] a[178]8 [175] w[178]0 [167] 1500
  120. 440 [153][166]1)"str$ies verstoesst gegen die cont chr$enfer wait
  121. 442 printspc(1)"[203]onfenssionen !":goto 100
  122. 445 if o$="waechter" or o$="waerter" then1410
  123. 446 goto 440
  124. 450 rem gib
  125. 451 if a=9 and o$="wein" then 1520
  126. 452 rem
  127. 453 if a=15 and o$="groschen" then 1550
  128. 454 if a=15 then 1550
  129. 456 if a=21 and o$="groschen" then 1580
  130. 457 if a=1 and o$="public" then 485
  131. 474 if a=9 and w=1 thenprintspc(1)"[214]ersuchs mal mit 'gib wein' !":goto 100
  132. 475 if a=16 then 1740
  133. 480 printspc(1)"[194]ehalt dein [218]eug lieber !":goto 100
  134. 485 if n=1 then 1590
  135. 487 printspc(1)"[196]u willst doch nicht etwa betruegen !":goto 100
  136. 499 end
  137. 500 for t=1 to len(i$)
  138. 510 if mid$(i$,t,1)=" " then 530
  139. 520 next t:o$="":v$="":return
  140. 530 v$=left$(i$,t-1)
  141. 540 o$=right$(i$,len(i$)-t)
  142. 550 return
  143. 600 rem load
  144. 601 printspc(1)"[194]rain [208]art [201]  [204]oad [146]...
  145. 603 [133]"  ascile wait (NULL)ame ";c$
  146. 605 [159]1,8,4,"b1"[170]c$[170]",s,r"
  147. 607 [132]1,a,b,f,c,o,e,d,n,s,l,m,da,db,dc,dd,s,w,dm,z
  148. 616 [139] i$[178]"grab" [176] i$[178]"grabe" [167] 1700
  149. 620 [160]1:[141]10
  150. 621 [137]1000
  151. 650 [143] save
  152. 651 [153][166]1)"peekrain (NULL)art right$ cont (NULL)ave wait":r$[178][199](13)
  153. 653 [133]"  ascile wait (NULL)ame ";c$
  154. 655 [159]2,8,15,"s:b1"[170]c$[170]"":[160]2
  155. 656 [159]1,8,4,"b1"[170]c$[170]",s,w"
  156. 657 [152]1,a;r$;b;r$;f;r$;c;r$;o;r$;e;r$;d;r$;n;r$;s;r$;l
  157. 658 [152]1,m;r$;da;r$;db;r$;dc;r$;dd;r$;s;r$;w;r$;dm;r$;z
  158. 670 [160]1:[141]10
  159. 671 [137]1000
  160. 700 [143] schlaf
  161. 718 [153][166]1)"str$u schlaefst eine (NULL)unde...":[137] 100
  162. 720 [143] benutze
  163. 721 [139] o$[178]"axt" [167] 783
  164. 722 [139] o$[178]"treppe" [167] 785
  165. 723 [139] o$[178]"dreizack" [175] a[178]17 [167] 1630
  166. 780 [153][166]1)"str$as kannst du nicht benutzen.":[137] 100
  167. 783 [139] a[178]1 [175] b[178]1 [167] 1420
  168. 785 [153][166]1)"(NULL)ozu habe ich wohl die (NULL)ommandos 'r'
  169. 787 printspc(1)"'h' eingbaut ?":goto 100
  170. 800 rem klopfe
  171. 802 if a=1 and da=0 then 1400
  172. 804 if a=1 and da=0 then 1400
  173. 806 if a=12 then 1540
  174. 818 printspc(1)"[196]u klopfst an deinen [203]opf !":goto 100
  175. 820 rem norden
  176. 821 if a=2 thena=3:goto 856
  177. 822 if a=4 thena=5:goto 856
  178. 823 if a=7 thena=10:goto 856
  179. 825 if a=8 thena=9:goto 856
  180. 826 if a=13 then a=14:goto 856
  181. 827 if a=12 then a=13:goto 856
  182. 828 if a=14 then a=17:goto 856
  183. 829 if a=16 then a=20:goto 856
  184. 830 if a=18 then a=15:goto 856
  185. 832 if a=21 then a=12:goto 856
  186. 855 printspc(1)"[196]orthin fuehrt [158] kein [146] [215]eg.":goto100
  187. 856 printspc(1)"[196]u gehst nach [206]orden...":goto 1300
  188. 857 printspc(1)"[196]u lauefst nach [211]ueden...":goto 1300
  189. 858 printspc(1)"[196]u marschierst nach [215]esten.":goto 1300
  190. 859 printspc(1)"[196]u gehst [210]ichtung [207]sten...":goto 1300
  191. 860 rem sueden
  192. 861 if a=3 thena=2:goto 857
  193. 862 if a=5 thena=4:goto 857
  194. 863 if a=10 thena=7:goto 857
  195. 865 if a=9 thena=8:goto 857
  196. 866 if a=14 then a=13:goto 857
  197. 867 if a=13 then a=12:goto 857
  198. 868 if a=17 then a=14:goto 857
  199. 869 if a=20 then a=16:goto 857
  200. 870 if a=15 then a=18:goto 857
  201. 871 goto 855
  202. 900 rem westen
  203. 901 if a=7 thena=8:goto 858
  204. 903 if a=10 thena=9:goto 858
  205. 905 if a=9 then a=11:goto 858
  206. 906 if a=11 thena=13:goto 858
  207. 907 if a=13 then a=16:goto 858
  208. 909 if a=15 then a=14:goto 858
  209. 910 if a=1 and dd=1 then a=2:goto 858
  210. 913 if a=19 then a=15:goto 858
  211. 914 if a=14 then a=20:goto 858
  212. 919 goto 855
  213. 940 rem osten
  214. 941 if a=8 thena=7:goto 859
  215. 943 if a=9 thena=10:goto 859
  216. 945 if a=11 then a=9:goto 859
  217. 946 if a=13 thena=11:goto 859
  218. 947 if a=16 then a=13:goto 859
  219. 949 if a=14 then a=15:goto 859
  220. 950 if a=2 and dd=1 then a=1:goto 859
  221. 953 if a=15 then a=19:goto 859
  222. 954 if a=20 then a=14:goto 859
  223. 955 goto 855
  224. 1000 rem raueme
  225. 1001 print"[147]"
  226. 1004 printspc(1)"  -=> [196]as [158] [204]eben [146] des [194]rain ! <=-
  227. 1005 [153][166]1)"(NULL)art right$ peekrain in mid$erusalem !
  228. 1006 fori=1to20:print"--";:next
  229. 1008 if a=1 and dd=1 then 2030
  230. 1009 if a=1 and da=1 then 2020
  231. 1010 if a=1 then 2000:rem kerker
  232. 1011 if a=2 then 2040
  233. 1012 if a=3 then 2060
  234. 1014 if a=4 then 2080
  235. 1017 if a=5 then 2100
  236. 1023 if a=7 then 2120
  237. 1025 if a=8 then 2140
  238. 1026 if a=9 then 2160
  239. 1027 if a=10 then 2180
  240. 1029 if a=11 then 2200:rem palast
  241. 1030 if a=12 then 2220:rem circus
  242. 1032 if a=13 then 2240
  243. 1033 if a=14 then 2260
  244. 1034 if a=15 then 2280
  245. 1035 if a=16 then 2300
  246. 1036 if a=17 then 2320:rem kreuze
  247. 1037 if a=18 then 2340
  248. 1038 if a=19 then 2360
  249. 1040 if a=20 then 2380
  250. 1041 if a=21 then 2400
  251. 1050 a=1:goto 1000
  252. 1100 rem grabe
  253. 1102 if a=17 then 1110
  254. 1104 printspc(1)"[196]u graebst einwenig in deinen [212]aschen."
  255. 1105 goto 100
  256. 1110 if d=1 then 1120
  257. 1111 printspc(1)"[214]ersuche es mit dem [203]ommando: [194]enutze
  258. 1112 [137] 100
  259. 1120 [153][166]1)"str$u graebst und graebst und graebst,
  260. 1122 printspc(1)"und findest neben einpaar unwichtigen
  261. 1123 [153][166]1)"chr$oldklumpen die atnrmeekasse !":e[178]1:[141] 10:[137] 1000
  262. 1130 [143] iss/trinke
  263. 1132 [153][166]1)"right$n diesem (NULL)art gibt es noch nichts
  264. 1134 printspc(1)"zum essen/trinken !":goto 100
  265. 1299 end
  266. 1300 fori=1to10:si=54272
  267. 1303 forii=0 to 24:poke si+ii,0:next
  268. 1305 poke si+1,15:poke si+5,9:poke 2+15,30
  269. 1307 poke si+24,15:poke si+4,129:poke si+4,65:poke si+4,129
  270. 1310 nexti:goto 1000
  271. 1400 printspc(1)"[196]u klopfst an die [212]uer...":fori=1to1000:next
  272. 1403 printspc(1)"[197]in stummer [215]aechter oeffnet sie und
  273. 1405 [153][166]1)"kommt herein !":da[178]1:[141]10:[137] 1000
  274. 1410 [153][166]1)"(NULL)it lauten chr$ebruell stuerzt du dich
  275. 1412 printspc(1)"auf den [215]aechter ! [196]ieser macht einen
  276. 1415 [153][166]1)"atnngst (NULL)chrei ! (NULL)nd rennt dann laut
  277. 1416 printspc(1)"rufend '[201]ch kann wieder sprechen'
  278. 1418 [153][166]1)"davon.":dd[178]1:[141] 10:[137] 1000
  279. 1420 [153][166]1)"(NULL)it der atnxt schneidest du die ascesseln
  280. 1422 printspc(1)"des [193]lten durch und holst ihn runter.":db=1
  281. 1424 gosub10:goto 1000
  282. 1430 printspc(1)"[196]u fragst den [205]ann wie es nun weiter
  283. 1432 [153][166]1)"gehen soll ! valr sagt:sys'(NULL)m zu verduften
  284. 1434 printspc(1)"brauchst du wohl [199]eld ? [200]ier hast du
  285. 1436 [153][166]1)"einen chr$roschen gehe damit auf den
  286. 1437 printspc(1)"[205]arkt und hole mir die neue [208]ublic,
  287. 1438 [153][166]1)"dann sehen wir weiter...'":s[178]1
  288. 1439 [141]10:[137] 1000
  289. 1500 [153][166]1)"atnls du den (NULL)klaven schlagen willst
  290. 1502 printspc(1)"rutschst du aus und fliegst hin. [196]er
  291. 1504 [153][166]1)"(NULL)klave nimmt nun den (NULL)ein und gibt
  292. 1506 printspc(1)"ihn dir ! [197]r sagt:[154]'[193]m fruehen [205]orgen
  293. 1508 [153][166]1)"schon besoffen. left$ier hast du damit du
  294. 1510 printspc(1)"hier rauskommst. [199]ib ihn dem [215]aechter
  295. 1512 [153][166]1)"und verschwinde hier !'":[141]10:w[178]1:[137] 1000
  296. 1520 [139] w[178]1 [167] 1522
  297. 1521 [137] 452
  298. 1522 [153][166]1)"str$u gibst dem alten (NULL)auefer den (NULL)rug
  299. 1524 printspc(1)"mit dem [215]ein ! [197]r saueft ihn und
  300. 1525 [153][166]1)"faellt dann um. (NULL)ass dir das eine
  301. 1526 printspc(1)"[204]ehre sein ! [193]lkohol ist schaedlich !
  302. 1528 w[178]2:dm[178]1:[141]10:[137] 1000
  303. 1530 [153][166]1)"atnuf dem (NULL)child steht 'peekei chr$efahr
  304. 1532 printspc(1)"3 mal klopfen !'":goto 100
  305. 1540 dx=dx+1
  306. 1542 if dx=3 then dx=0:goto 1545
  307. 1543 printspc(1)"[196]u klopfst zum"dx"mal an die [212]uer.
  308. 1544 [137] 100
  309. 1545 [139] s[179][177]1 [167] dx[178]0:[137]1800
  310. 1546 [153][166]1)"str$ie (NULL)uer geht auf und du gehst hinein.":a[178]21:[141]10:[137]1000
  311. 1550 [153][166]1)"sys'str$u willst wohl die neue (NULL)ublic, hat":dx[178]0
  312. 1552 [153][166]1)"dich wohl der atnlte geschchikt ! str$och
  313. 1553 printspc(1)"die gibt es hier nicht ! [199]ehe mal zum
  314. 1554 [153][166]1)"(NULL)irkus da gibst noch welche.'":[137] 100
  315. 1560 [153][166]1)"cont'(NULL)eisst du den das lenodewort wenn ja
  316. 1562 printspc(1)"dann sage es mir !'":goto 100
  317. 1570 printspc(1)"[154]'[207]h das [195]odewort, wenn das so ist
  318. 1572 [153][166]1)"koennte ich dir ja eigentlich sagen
  319. 1574 printspc(1)"wo die [205]oneten der [210]omeer versteckt
  320. 1575 [153][166]1)"sind ! (NULL)ie sind bei den (NULL)reuzen ver=
  321. 1576 printspc(1)"steckt ! [200]ier hast du einen [196]reizack
  322. 1577 [153][166]1)"damit musst du danach graben !'":d[178]1
  323. 1578 [153][166]1)"atneh (NULL)reuze ? str$ie verstehst nur peekahn=
  324. 1579 printspc(1)"hof ! ":goto 100
  325. 1580 if s=1 then 1582
  326. 1581 goto 480
  327. 1582 printspc(1)"[196]u gibst den [205]ann deinen [199]roschen, er
  328. 1583 [153][166]1)"gibt dir dafuer die neue (NULL)ublic.":n[178]1:s[178]2:[137] 100
  329. 1590 [153][166]1)"'atnh die neue (NULL)ublic ! (NULL)un koennte ich
  330. 1592 printspc(1)"dir ja ein [195]odewort sagen !'
  331. 1594 [153][166]1)"chr$ennnnauuu lenhef !"
  332. 1596 [153][166]1)"'atnlso das (NULL)ort heisst 'muppets' !'":n[178]2:[137] 100
  333. 1600 [153][166]1)"sys'left$ier gibts nur die (NULL)ublic, die atn(NULL)(NULL)
  334. 1602 printspc(1)"wurde nocht nicht erfunden und das
  335. 1603 [153][166]1)"64'er hat mit (NULL)eserbriefen zu tun !'":[137] 100
  336. 1630 [139] d[178]1 [167] 1635
  337. 1632 [153][166]1)"right$ch wuerde einen str$reizack zum graben
  338. 1634 printspc(1)"benutzen !":goto 100
  339. 1635 printspc(1)"[196]u graebst mit dem [196]reizack durch das
  340. 1636 [153][166]1)"valrdreich in 5 (NULL)eter tiefe findest du
  341. 1638 printspc(1)"die [193]rmeekasse und steckst sie ein !":e=1:gosub 10:goto 1000
  342. 1700 printspc(1)"[196]u blaetterst durch die [208]ublic, bei
  343. 1702 [153][166]1)"dem peekericht '(NULL)eter str$iehm (NULL)rogrammierer
  344. 1704 printspc(1)"des [158] [202]ahres [146]' bleibst du haengen !"
  345. 1705 printspc(1)"[206]ach kurzem lesen bekommst du einen
  346. 1707 [153][166]1)"print# (NULL)achkrampf wait und lauefst weiter !":[137] 100
  347. 1740 [139] e[178]1 [175] o$[178]"armeekasse" [167] 1760
  348. 1742 [139] e[178]1 [175] o$[178]"kasse" [167] 1760
  349. 1743 [139] e[178]1 [175] o$[178]"geld" [167] 1760
  350. 1745 [153][166]1)"(NULL)ie waers wenn du ihm die atnrmeekasse
  351. 1746 printspc(1)"der [210]oemer gibst ?":goto 100
  352. 1760 printspc(1)"[196]u gibst dem [205]ann die [193]rmeekasse und
  353. 1762 [153][166]1)"er laesst dich an peekoard !"
  354. 1767 [153][166]1)"str$as (NULL)chiff legt nun ab und faehrt in
  355. 1768 printspc(1)"den 2 [208]art des [193]dventures !"
  356. 1769 print" [201]ch meine es faehrt nach [193]egypten !":gosub 10:gosub1770:goto1778
  357. 1770 pd=2:r$=chr$(13)
  358. 1772 open2,8,15,"s:brain score":close2
  359. 1773 open1,8,4,"brain score,s,w"
  360. 1774 print#1,f;r$;b;r$;c;r$;o;r$;e;r$;d;r$;n;r$;pd;r$;k;r$;s;r$;l;r$;m
  361. 1775 print#1,w;r$;z;r$;a;r$;la;r$;lb;r$;lc;r$;ld;r$;le;r$;lf;r$;da;r$;gb
  362. 1776 print#1,dc;r$;dd;r$;dm;r$;ga;r$;gb;r$;gc;r$;cj;r$;ge
  363. 1777 close1:return
  364. 1778 rem brain
  365. 1785 print"[147]"
  366. 1786 printspc"[204]oading [194]rain [201][201]...[144]
  367. 1787 [151] 828,0
  368. 1790 [153]"stopload"[199](34);"brain p.ii load";[199](34); ",8
  369. 1792 print"[144] run"
  370. 1793 poke 631,13:poke 632,13:poke 198,2:print"";:end
  371. 1800 rem gefahr
  372. 1802 printspc(1)"[197]in [205]ann kommt heraus und als er sieht
  373. 1804 [153][166]1)"das du keine sys (NULL)ohle wait hast schlaegt
  374. 1806 printspc(1)"er dir die [212]uer vor der [154] [206]ase [146] zu.":goto 100
  375. 2000 rem a=1
  376. 2003 printspc(1)"[196]u stehst in einer [203]erker [218]elle im
  377. 2005 [153][166]1)"(NULL)alast des (NULL)ilatus. atnn der (NULL)and haengt
  378. 2006 printspc(1)"ein alter [205]ann der etwas von 'elender
  379. 2007 [153][166]1)"chr$uenstling' vor sich her murmelt.
  380. 2008 printspc(1)"[197]ine schwere [200]olztuer versperrt dir
  381. 2010 [153][166]1)"den (NULL)eg nach draussen.
  382. 2012 printspc(1)"[205]oegliche [210]ichtungen: keine !"
  383. 2018 goto 100
  384. 2020 rem da=1
  385. 2021 printspc(1)"[214]or dir steht der stumme [215]aechter,
  386. 2023 [153][166]1)"als du ihn bittest dich frei zu lassen
  387. 2024 printspc(1)"spuckt er dir ins [199]esicht. [196]arueber
  388. 2025 [153][166]1)"regt sich nun der alte an der (NULL)and
  389. 2026 printspc(1)"wieder auf.
  390. 2027 [153][166]1)"(NULL)as nun peekrain ?
  391. 2028 printspc(1)"[205]oegliche [210]ichtungen: keine !":goto 100
  392. 2030 printspc(1)"[196]u stehst vor einer [212]uer diese steht
  393. 2032 [153][166]1)"weit offen. str$er (NULL)aerter ist abgehauen.
  394. 2033 if db=0 then printspc(1)"[193]n der [215]and haengt der alte [205]ann.
  395. 2034 [139] db[178]1 [167] [153][166]1)"(NULL)eben dir steht der alte (NULL)ann.
  396. 2035 if b=0 then printspc(1)"[193]m [194]oden liegt eine  [193]xt [146]."
  397. 2037 printspc(1)"[205]oegliche [210]ichtungen: [215]esten.
  398. 2038 [137] 100
  399. 2040 [153][166]1)"str$u stehst vor der (NULL)uer zur (NULL)erker
  400. 2042 printspc(1)"[218]elle. [196]er [215]aechter rennt immer noch
  401. 2043 [153][166]1)"laut schreiend durch die chr$egend.
  402. 2045 printspc(1)"[213]eberall hoerst du gequaelte [211]chreie.
  403. 2046 [153][166]1)"right$m (NULL)orden siehst du eine (NULL)reppe !
  404. 2048 printspc(1)"[210]ichtungen: [206]orden,[207]sten.":goto 100
  405. 2060 rem a=3
  406. 2061 printspc(1)"[196]u stehst vor einer [212]reppe, diese
  407. 2063 [153][166]1)"fuehrt nach oben aus dem (NULL)erker.
  408. 2065 printspc(1)"[196]u musst jetzt wohl eine [197]ntscheidung
  409. 2067 [153][166]1)"treffen. left$och oder (NULL)ueden, (NULL)opf oder
  410. 2068 printspc(1)"[218]ahl, [195][196][213] oder [211][208][196], [194]ic [205]aec oder
  411. 2070 [153][166]1)"chr$ummibaeren, atnmiga oder (NULL)uelleimer.
  412. 2073 printspc(1)"[205]oegliche [210]ichtungen: hoch und [211]ueden.
  413. 2076 [137] 100
  414. 2080 [143] a=4
  415. 2082 [153][166]1)"valrstaunlich wie lang sich so eine
  416. 2083 printspc(1)"[212]reppe ziehen kann. [196]ie [210]oemer wussten
  417. 2084 [153][166]1)"halt noch wie man baut. str$ie lenhepos
  418. 2085 printspc(1)"[208]yramide steht heute noch ! [193]eh [208]yr=
  419. 2086 [153][166]1)"amide das waren doch die chr$riechen oder
  420. 2088 printspc(1)"gar die [211]iechen ?
  421. 2089 [153][166]1)"(NULL)a auf alle ascaelle ist die (NULL)reppe hier
  422. 2090 printspc(1)"zur [197]nde.
  423. 2091 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),runter.
  424. 2093 goto 100
  425. 2100 rem a=5
  426. 2102 printspc(1)"[207]h nein schon wieder eine [212]reppe,
  427. 2104 [153][166]1)"nichts gegen (NULL)reppen aber einen (NULL)ift
  428. 2105 printspc(1)"haetten sich die ollen [210]oemer ruhig
  429. 2106 [153][166]1)"leisten koennen. str$ie spinnen die
  430. 2108 printspc(1)"[210]oemer.
  431. 2110 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)ueden und left$och.
  432. 2112 goto 100
  433. 2120 rem a=6
  434. 2122 printspc(1)"[196]u stehst nun im oestlichen [208]alast
  435. 2123 [153][166]1)"ascluegel. left$aben ja nicht schlecht ge=
  436. 2124 printspc(1)"lebt die [210]oemer. [196]och wieviel [211]klaven
  437. 2125 [153][166]1)"beim peekau dieser (NULL)wingburg ( klingt
  438. 2126 printspc(1)"gut oder ? [200]ab ich aus [212]ell !) ihr
  439. 2127 [153][166]1)"(NULL)eben gelassen haben ?
  440. 2130 if o=0 thenprintspc(1)"[196]u [156] siehst: [146] ein [207]ellaempchen.
  441. 2134 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)unter,(NULL),(NULL).
  442. 2135 goto 100
  443. 2140 rem a=8
  444. 2141 printspc(1)"[196]u stehst in der [197]mpfangshalle, im
  445. 2143 [153][166]1)"(NULL)orden am atnusgang steht ein (NULL)aechter.
  446. 2145 printspc(1)"[214]or dir steht der [212]hron des [208]ilatus
  447. 2146 [153][166]1)"doch von diesem ist nichts zu sehen.
  448. 2147 if w=0 thenprintspc(1)"[197]in [211]klave kommt mit einem [203]rug [215]ein
  449. 2149 [139] w[178]0 [167][153][166]1)"an dir vorbei gelaufen.
  450. 2150 if w=0 thenprintspc(1)"[196]u siehst:[211]klaven,[215]ein.
  451. 2152 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)orden,(NULL)sten.
  452. 2154 goto 100
  453. 2160 rem a=9
  454. 2161 if dm=1 then 2170
  455. 2162 printspc(1)"[196]u stehst am [193]usgang des [208]alastes,
  456. 2164 [153][166]1)"eine (NULL)ache versperrt dir den (NULL)eg. (NULL)ie
  457. 2165 printspc(1)"sagt:'[197]ntweder du rueckst [194]oeckstoff
  458. 2167 [153][166]1)"rueber oder du kommst hier nicht
  459. 2168 printspc(1)"raus !'"
  460. 2169 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden,[207]sten.":goto 100
  461. 2170 printspc(1)"[196]u stehst am [193]usgang des [208]alastes,
  462. 2172 [153][166]1)"am peekoden liegt eine (NULL)aechter und sch=
  463. 2174 printspc(1)"laeft seinen [210]ausch aus. [201]m [215]esten
  464. 2175 [153][166]1)"kannst du schon den (NULL)arktplatz von
  465. 2176 printspc(1)"[202]erusalem sehen.
  466. 2177 [153][166]1)"(NULL)oegliche (NULL)ichtungen:(NULL),(NULL),(NULL).
  467. 2178 goto 100
  468. 2180 rem a=10
  469. 2181 printspc(1)"[196]u stehst im [215]artezimmer des [208]alastes
  470. 2183 [153][166]1)"das wurde gerade neu gefliesst. atnlso
  471. 2185 printspc(1)"achte darauf das du nicht ausrutschst.
  472. 2186 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)ueden,(NULL)esten.
  473. 2189 goto 100
  474. 2200 rem a=11
  475. 2201 printspc(1)"[196]u blickst auf den [205]arktplatz von
  476. 2203 [153][166]1)"mid$erusalem. (NULL)eben dem (NULL)alast sitzen
  477. 2204 printspc(1)"einpaar [197]x-[204]ebra [203]ranke. [193]n der [208]alast
  478. 2206 [153][166]1)"(NULL)auer steht '(NULL)oemer gehen nach left$ause'.
  479. 2207 printspc(1)"[206]ach einer [215]eile wandelst du die [211]tufen
  480. 2208 [153][166]1)"hinunter auf den (NULL)arktplatz.
  481. 2210 printspc(1)"[210]ichtungen: [215]esten und [207]sten.":goto 100
  482. 2220 rem a=12
  483. 2221 printspc(1)"[196]u stehst vor dem [218]irkus [205]inimus !
  484. 2222 [153][166]1)"(NULL)eider ist er heute geschlossen,schade
  485. 2223 printspc(1)"denkst du ! [193]n der [197]ingangstuer haengt
  486. 2224 [153][166]1)"ein (NULL)child.
  487. 2225 printspc(1)"[210]ichtung: [206]orden.
  488. 2226 [137] 100
  489. 2240 [143] a=13
  490. 2241 [153][166]1)"str$u stehst im (NULL)entrum der (NULL)tadt. right$m
  491. 2243 printspc(1)"[211]ueden ist der [218]irkus, im [206]orden die
  492. 2245 [153][166]1)"atnltstadt, im (NULL)sten das (NULL)rominenten=
  493. 2246 printspc(1)"viertel und im [215]esten der [200]afen.
  494. 2247 [153][166]1)"mid$erusalem hat doch einen left$afen, oder ?
  495. 2248 printspc(1)"[205]oegliche [210]ichtungen: alle moeglichen.
  496. 2250 [137] 100
  497. 2260 [143] a=14
  498. 2261 [153][166]1)"str$u lauefst in die atnltstadt, irgedwo
  499. 2263 printspc(1)"hier soll die [214]olks [198]ront von [202]udaea
  500. 2265 [153][166]1)"ihre (NULL)entrale haben. valin (NULL)egion von
  501. 2267 printspc(1)"[210]oemern laueft an die vorbei. [197]iner
  502. 2268 [153][166]1)"von ihnen hat einen (NULL)ochloeffel in
  503. 2269 printspc(1)"der [200]and.
  504. 2270 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL),(NULL),(NULL),(NULL).
  505. 2273 goto 100
  506. 2280 rem a=15
  507. 2281 printspc(1)"[196]u stehst im [218]entrum der [193]ltstadt,
  508. 2283 [153][166]1)"enge chr$assen fuehren durch sie. (NULL)or
  509. 2286 printspc(1)"dem [218]eitungsladen machst du halt.
  510. 2287 [153][166]1)"str$er (NULL)erkauefer schaut dich fragend
  511. 2289 printspc(1)"an."
  512. 2290 printspc(1)"[210]ichtungen: [211]ueden,[207]sten und [215]esten.":goto 100
  513. 2300 rem a=16
  514. 2302 printspc(1)"[196]u stehst im [200]afen von [202]erusalem,
  515. 2304 [153][166]1)"an einem (NULL)isch sitzt ein weisshaariger
  516. 2306 printspc(1)"junger [205]ann. [213]nd nimmt das [199]eld der
  517. 2308 [153][166]1)"(NULL)assagiere entgegen. atnls du dich an
  518. 2310 printspc(1)"[194]oard schleichen willst sagt er das
  519. 2312 [153][166]1)"die (NULL)eberfahrt nach atnthen 100 (NULL)erser=
  520. 2313 printspc(1)"dollar kostet.
  521. 2314 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)orden und (NULL)sten.
  522. 2315 goto 100
  523. 2320 rem a=17
  524. 2321 printspc(1)"[196]u stehst auf dem [203]reuziegungsplatz,
  525. 2323 [153][166]1)"die (NULL)reuze sind alle leer.
  526. 2324 if e=1 thenprintspc(1)"[214]or dir ist ein 5 [205]eter tiefes [204]och."
  527. 2325 printspc(1)"[205]oegliche [210]ichtungen: [211]ueden.":goto 100
  528. 2340 rem a=18
  529. 2341 printspc(1)"[196]u stehst vor der [218]entrale der [214][214][202],
  530. 2342 [153][166]1)"ein alter (NULL)ann sitzt vor der (NULL)uer und
  531. 2343 printspc(1)"murmelt etwas das er blind,taub,stumm
  532. 2344 [153][166]1)"sei und das hier nicht die (NULL)entrale
  533. 2345 printspc(1)"waer !"
  534. 2346 printspc(1)"[205]oegliche [210]ichtung: [206]orden.":goto 100
  535. 2360 rem a=19
  536. 2361 printspc(1)"[215]enn es in diesem [193]dventure etwa
  537. 2363 [153][166]1)"einen sinnlosen (NULL)rt gibt, dann ist es
  538. 2365 printspc(1)"dieser. [196]eshalb ist [218]eit einpaar
  539. 2367 [153][166]1)"chr$ruesse los zu werden. right$ch gruesse:
  540. 2368 printspc(1)"[196]ata [200]ouse, [205]aster [205][205] [211]oft, [211]tarsoft.
  541. 2369 [153][166]1)"(NULL)oegliche (NULL)ichtung: (NULL)esten.":[137] 100
  542. 2380 [143] a=20
  543. 2382 [153][166]1)"left$ier an dieser (NULL)telle, genau da und
  544. 2383 printspc(1)"nirgends anders bleibst du stehen, um
  545. 2385 [153][166]1)"auf das noch unverseuchte (NULL)ittelmeer
  546. 2386 printspc(1)"zu schauen. [193]uf diesen siehst du einen
  547. 2387 [153][166]1)"asclugzeugtraeger."
  548. 2388 [153][166]1)"(NULL)oegliche (NULL)ichtungen: (NULL)ueden,(NULL)sten.
  549. 2389 printspc(1)"[213]m dich nicht zu verwirren muss ich zu
  550. 2390 [153][166]1)"geben das es kein asclugzeugtraeger ist.
  551. 2392 printspc(1)"[196]er war ja noch garnicht erfunden, es
  552. 2394 [153][166]1)"ist eine peekohrinsel.
  553. 2396 goto 100
  554. 2400 rem a=21
  555. 2402 printspc(1)"[196]u stehst im [195]ircus, hier steigt ge=
  556. 2404 [153][166]1)"rade die erste mid$erusalemer lenopy (NULL)arty,
  557. 2405 printspc(1)"vor dir ist ein [211]tand im der neusten
  558. 2406 [153][166]1)"(NULL)ublic (NULL)aerz / atnpril / 3 v.lenhr.
  559. 2410 printspc(1)"[196]er [211]tandbesitzer wartet auf deine
  560. 2412 [153][166]1)"peekestellung.
  561. 2415 printspc(1)"[210]ichtung: [206]orden.":goto 100
  562. 2416 goto 100
  563. 3000 rem sicher
  564. 3002 printspc(1)"[196]er [211]pielstand wird nun auf der [196]isk
  565. 3004 [153][166]1)"gespeichert und kann bei einem neuen
  566. 3005 printspc(1)"[211]piel am [193]nfang nach geladen werden.
  567. 3006 [153][166]1)"str$ies geschieht dann cont automatisch wait !
  568. 3008 gosub10:gosub1770:goto 1000
  569. 3010 rem score load
  570. 3012 open1,8,4,"brain score,s,r"
  571. 3013 input#1,f,b,c,o,e,d,n,pd,k,s,l,m,w,z,a,la,lb,lc,ld,le,lf,da,db,dc,dd,dm
  572. 3014 input#1,ga,gb,gc,cj,ge
  573. 3015 close1:return
  574. 4000 gosub3010
  575. 4001 if a=0 thena=1
  576. 4002 if pd>1 then 4010
  577. 4004 goto 1000
  578. 4010 printspc(1)"[201]rgendwie bist du hier im falschen
  579. 4012 [153][166]1)"teil des chr$ames !":[141]10
  580. 4014 [139] pd[178]2 [167][147]"brain p.ii load",8,1:[138]
  581. 4015 [139] pd[178]3 [167][147]"brain p.ii load",8,1:[138]
  582. 4016 [139] pd[178]4 [176] pd[178]5 [167][147]"brain p.iii load",8,1:[138]
  583. 4020 pd[178]1:a[178]1:[137] 1000
  584.